home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue60 / Construc / DMObjectBroker.pas next >
Encoding:
Pascal/Delphi Source File  |  2000-07-05  |  638 b   |  26 lines
  1. unit DMObjectBroker;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   MConnect;
  6.  
  7. type
  8.   TDMObjectBroker = class(TCustomObjectBroker)
  9.   public
  10.     procedure SetConnectStatus(ComputerName: string; Success: Boolean); override;
  11.     function GetComputerForGUID(GUID: TGUID): string; override;
  12.     function GetComputerForProgID(const ProgID): string; override;
  13.     function GetPortForComputer(const ComputerName: string): Integer; override;
  14.   end;
  15.  
  16. procedure Register;
  17.  
  18. implementation
  19.  
  20. procedure Register;
  21. begin
  22.   RegisterComponents('DrBob42', [TDMObjectBroker]);
  23. end;
  24.  
  25. end.
  26.